home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 42 / 64er_Magazin_Sonderheft_42_19xx_Markt__Technik_de_Side_B.d64 / belagerung ii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  10.7 KB  |  346 lines
  1. 0 ifpeek(887)=111then10
  2. 1 ifx=0thenx=1:load"song",8,1
  3. 2 poke887,111
  4. 3 :
  5. 4 rem  - by : frank abbing      -
  6. 5 rem  -      margarethenstr.13 -
  7. 6 rem  -      4422 ahaus        -
  8. 7 rem  -                        -
  9. 8 rem  - for: 64-er sonderh.    -
  10. 9 :
  11. 10 print"welcome you !":gosub6000:gosub6050:poke53265,0
  12. 17 poke53280,5:poke53281,0:print"[147][158]"
  13. 20 fora=828to828+45:readb:pokea,b:next
  14. 22 fort=50000to50006:readq:poket,q:next
  15. 25 sys828:vc=53248:ci=56576:pokevc+24,56
  16. 27 pokeci,peek(ci)and252:poke648,204:print"[151][147]"
  17. 35 data234,165,1,120,41,251,133,1,160,0,132,251,132,253,169,208,133,252,169,224
  18. 40 data133,254,162,16,177,251,145,253,200,208,249,230,252,230,254,202,208,242
  19. 45 data165,1,9,4,133,1,88,96,238,39,208,238,40,208,96
  20. 50 ms(1)=10:ms(2)=8:d1=1:d2=6
  21. 55 ad=57344:readx:ifx=99then200
  22. 60 cg=ad+x*8:fori=0to7:readq:pokecg+i,q:next:goto55
  23. 65 data65,255,255,207,199,167,3,33,224
  24. 70 data83,255,207,143,223,143,79,15,99
  25. 75 data90,224,224,226,243,209,201,201,145
  26. 77 data88,65,65,32,226,210,201,201,145
  27. 80 data239,255,255,255,255,255,255,255,0
  28. 82 data244,127,127,127,127,127,127,127,127
  29. 85 data204,127,127,127,127,127,127,127,0
  30. 86 data0,255,255,255,255,255,255,255,255
  31. 87 data207,0,127,127,127,127,127,127,127
  32. 90 data128,255,255,255,231,255,255,255,255
  33. 92 data112,254,252,252,252,243,192,132,136
  34. 95 data110,127,159,158,126,205,13,45,19
  35. 97 data109,198,241,254,240,225,227,255,195
  36. 100 data125,19,227,27,79,135,199,251,225
  37. 102 data85,255,254,253,204,134,149,164,132
  38. 105 data73,223,111,183,59,99,135,31,31
  39. 107 data74,200,255,248,241,243,227,255,199
  40. 110 data75,63,255,63,31,159,159,255,143
  41. 112 data79,238,141,13,14,40,194,238,239
  42. 115 data80,63,159,159,127,15,39,19,251
  43. 117 data76,238,236,236,232,233,233,255,225
  44. 120 data122,15,63,223,159,143,223,231,143
  45. 122 data158,255,247,243,1,243,247,255,255
  46. 125 data159,255,239,207,128,207,239,255,255
  47. 127 data35,159,64,218,255,104,0,199,255
  48. 130 data37,1,103,96,3,0,3,129,0
  49. 132 data38,255,240,192,135,86,90,223,255
  50. 135 data39,225,4,9,240,1,140,18,18
  51. 137 data27,254,254,252,252,254,250,255,0
  52. 140 data29,38,101,102,83,33,35,255,0
  53. 142 data66,126,126,126,126,126,126,126,126
  54. 145 data67,0,255,255,255,255,255,255,0
  55. 147 data108,0,7,31,63,63,127,127,126
  56. 150 data123,0,224,248,252,252,254,254,254
  57. 152 data124,126,127,127,63,63,31,7,0
  58. 155 data126,254,254,254,252,252,248,224,0
  59. 199 data99
  60. 200 p1$="[193][211][157][157][218][216]":b1$="[213][201][157][157][202][203]"
  61. 202 dr$="#%[157][157]&'[157][157][]"
  62. 203 rd$="  [157][157]  [157][157][164][164]"
  63. 205 p2$="[176][174][157][157][173][189]":b2$="[207][208][157][157][204][186]"
  64. 206 kf$="  [157][157]  [146]":pf$="  [157][157]^_[146]"
  65. 207 um$="[176][195][195][174][157][157][157][157][194][194][157][157][157][157][194][194][157][157][157][157][194][194][157][157][157][157][194][194][157][157][157][157][173][195][195][189]"
  66. 208 le$="    [157][157][157][157]  [157][157][157][157]  [157][157][157][157]  [157][157][157][157]  [157][157][157][157]    "
  67. 210 fort=0to62:poke49152+t,0:next
  68. 212 :poke49152,127:poke49153,255
  69. 215 fort=3to29step3:poke49152+t,64:poke49153+t,1:next
  70. 217 poke49182,127:poke49183,255
  71. 220 v=53248:pokev,119:pokev+1,122:pokev+21,0:pokev+23,3:pokev+29,3:pokev+39,2
  72. 222 poke53240,0:poke53241,0:pokev+2,0:pokev+3,0:goto3000
  73. 225 :
  74. 230 a=4:b=4:x=13:y=9:xx=119:yy=122
  75. 299 print"[147][154]";
  76. 300 print"[180]   [154][180]   [180]   [180]   [180]   [180]   [180]   [180]   "
  77. 305 print"[180]^_ [154][180]   [180]   [180]   [180]   [180]   [180]   [180]^_ "
  78. 310 print"[204][175][175][175][154][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154]"
  79. 315 print"[180]   [180]   [180]   [180]   [180]   [180]   [180]   [180]   "
  80. 320 print"[180]   [180]   [180]   [180]   [180]   [180]   [180]   [180]   "
  81. 325 print"[204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175]"
  82. 330 print"[180]   [180]   [158][180]   [180]   [180]   [180]   [154][180]   [180]   "
  83. 335 print"[180]   [180]   [158][180]   [180]   [180]   [180]   [154][180]   [180]   "
  84. 340 print"[204][175][175][175][204][175][175][175][158][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154][204][175][175][175][204][175][175][175]"
  85. 345 fort=1to2:print"[180]   [158][180]   [180]   [180]   [180]   [180]   [180]   [154][180]   "
  86. 350 print"[180]   [158][180]   [180]   [180]   [180]   [180]   [180]   [154][180]   "
  87. 355 print"[204][175][175][175][158][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154][204][175][175][175]":next
  88. 375 print"[180]   [180]   [158][180]   [180]   [180]   [180]   [154][180]   [180]   "
  89. 380 print"[180]   [180]   [158][180]   [180]   [180]   [180]   [154][180]   [180]   "
  90. 385 print"[204][175][175][175][204][175][175][175][158][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154][204][175][175][175][204][175][175][175]"
  91. 386 print"[180]   [180]   [180]   [180]   [180]   [180]   [180]   [180]   "
  92. 387 print"[180]   [180]   [180]   [180]   [180]   [180]   [180]   [180]   "
  93. 388 print"[204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175]"
  94. 390 print"[180]   [154][180]   [180]   [180]   [180]   [180]   [180]   [180]   "
  95. 395 print"[180]^_ [154][180]   [180]   [180]   [180]   [180]   [180]   [180]^_ "
  96. 400 print"[204][175][175][175][154][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][204][175][175][175][154]"
  97. 405 fort=1to5:poke214,0:sys58640:printtab(5+t*4)p1$:poke214,21:sys58640
  98. 410 printtab(5+t*4)p2$"":nextt:print"[158]"
  99. 412 fort=1to4:poke214,9:sys58640:printtab(5+t*4)b1$:poke214,12:sys58640
  100. 414 printtab(5+t*4)b1$"":nextt
  101. 415 poke214,12:sys58640:printtab(21)b2$
  102. 420 fort=0to39:poke53184+t,160:next
  103. 425 poke214,24:sys58640:print"belagerung ii - by frank abbing "
  104. 430 fori=0to23:fort=32to39:poke52224+t+40*i,160:nextt,i
  105. 432 poke214,1:sys58640
  106. 433 printtab(35)"[193][211]"
  107. 434 printtab(35)"[218][216]"
  108. 436 printtab(35)"10"
  109. 440 printtab(33)""n$(1)
  110. 442 poke214,19:sys58640
  111. 443 printtab(35)"08"
  112. 445 printtab(35)"[213][201]"
  113. 446 printtab(35)"[202][203]":poke53265,27:gosub7010
  114. 447 poke214,16:sys58640:printtab(33)""n$(2)
  115. 448 rem - spieler/reiter (joy) -
  116. 449 zu=1:pokev+21,1
  117. 450 poke214,0:sys58640:printtab(34)um$
  118. 451 poke214,18:sys58640:printtab(34)le$:gosub2000:gosub1200:gosub2000:gosub6040
  119. 452 j=peek(56320)
  120. 455 ifxx<247and(jand8)=0thena=a+1:x=x+4:xx=xx+32
  121. 460 ifxx>23and(jand4)=0thena=a-1:x=x-4:xx=xx-32
  122. 465 ifyy<218and(jand2)=0thenb=b+1:y=y+3:yy=yy+24
  123. 470 ifyy>50and(jand1)=0thenb=b-1:y=y-3:yy=yy-24
  124. 475 pokev+0,xx:pokev+1,yy
  125. 480 ifzu=1and(jand16)=0then510
  126. 485 ifzu=2and(jand16)=0then526
  127. 490 ifzu=2andpeek(203)=4thenpokev+21,1:zu=1
  128. 500 sys50000:goto452
  129. 510 n=52224+x+40*y:fx=x:fy=y:no=n
  130. 515 ifpeek(n)=65orpeek(n)=112then520
  131. 517 goto500
  132. 520 zu=2:pokev+2,xx:pokev+3,yy:pokev+40,peek(v+39):pokev+21,3:x1=a:y1=b
  133. 522 fa=peek(55296+x+40*y)
  134. 523 iffa>=16thenfa=fa-16:goto523
  135. 525 goto500
  136. 526 kl=52224+x+40*y:ifpeek(kl)=65orpeek(kl)=112orpeek(kl)=35then500
  137. 530 af=peek(55296+x+40*y)
  138. 531 ifaf>=16thenaf=af-16:goto531
  139. 532 iffa=7and(af=14oraf=1)then500
  140. 535 x2=abs(x1-a):y2=abs(y1-b)
  141. 537 n=no:m=peek(n):n=m:ifn=112then550
  142. 538 ifn=65then540
  143. 539 goto500
  144. 540 if(x2=1andy2=2)or(x2=2andy2=1)then600
  145. 545 goto500
  146. 550 if(x2=1andy2=1)or(x2=1andy2=0)or(x2=0andy2=1)then610
  147. 555 goto500
  148. 600 gosub705:poke646,af:poke211,x:poke214,y:sys58640:printp1$
  149. 602 ifaf=1thenpoke646,1:poke211,x:poke214,y:sys58640:printp2$
  150. 605 goto650
  151. 610 gosub705:poke646,af:poke211,x:poke214,y:sys58640:printp2$
  152. 612 ifaf=1thenpoke646,1:poke211,x:poke214,y:sys58640:printp1$
  153. 615 goto650
  154. 650 :
  155. 652 iffa<>1thenpoke646,fa:poke211,fx:poke214,fy:sys58640:printkf$:goto670
  156. 655 iffa=1thenpoke646,1:poke211,fx:poke214,fy:sys58640:printpf$:goto670
  157. 670 :
  158. 675 :
  159. 700 goto800
  160. 705 kl=52224+x+40*y:lk=peek(kl)
  161. 706 iflk<>85andlk<>79thenreturn
  162. 707 gosub6100
  163. 708 ms(2)=ms(2)-1
  164. 709 m$=str$(ms(2)):m$=right$(m$,1):mm$="0"+m$
  165. 710 poke214,19:sys58640:printtab(35)""mm$
  166. 717 :
  167. 720 return
  168. 790 rem --- burg zieht ---
  169. 800 poke214,0:sys58640:printtab(34)le$
  170. 802 poke214,18:sys58640:printtab(34)um$
  171. 803 zu=1:pokev+21,1
  172. 804 gosub2000:gosub1200:gosub2000:gosub6040
  173. 805 j=peek(56321)
  174. 807 ifxx<247and(jand8)=0thena=a+1:x=x+4:xx=xx+32
  175. 810 ifxx>23and(jand4)=0thena=a-1:x=x-4:xx=xx-32
  176. 812 ifyy<218and(jand2)=0thenb=b+1:y=y+3:yy=yy+24
  177. 815 ifyy>50and(jand1)=0thenb=b-1:y=y-3:yy=yy-24
  178. 820 pokev+0,xx:pokev+1,yy
  179. 825 ifzu=1and(jand16)=0then850
  180. 830 ifzu=2and(jand16)=0then900
  181. 835 ifzu=2andpeek(203)=4thenpokev+21,1:zu=1
  182. 840 sys50000:goto805
  183. 850 n=52224+x+40*y:fx=x:fy=y:no=n
  184. 855 ifpeek(n)=85orpeek(n)=79then860
  185. 857 goto840
  186. 860 zu=2:pokev+2,xx:pokev+3,yy:pokev+40,peek(v+39):pokev+21,3:x1=a:y1=b
  187. 865 fa=peek(55296+x+40*y)
  188. 870 iffa>=16thenfa=fa-16:goto870
  189. 875 goto840
  190. 900 kl=52224+x+40*y:ifpeek(kl)=85orpeek(kl)=79orpeek(kl)=35then840
  191. 905 af=peek(55296+x+40*y)
  192. 910 ifaf>=16thenaf=af-16:goto910
  193. 912 ifaf=1then840
  194. 915 x2=abs(x1-a):y2=abs(y1-b)
  195. 920 n=no:m=peek(n):n=m:ifn=79then940
  196. 922 rem - ritter -
  197. 930 if(x2=1andy2=1)or(x2=1andy2=0)or(x2=0andy2=1)then1000
  198. 932 goto840
  199. 940 if(x2=1andy2=1)or(x2=1andy2=0)or(x2=0andy2=1)then1010
  200. 941 if(x2=2andy2=2)or(x2=2andy2=0)or(x2=0andy2=2)then1010
  201. 942 if(x2=3andy2=3)or(x2=3andy2=0)or(x2=0andy2=3)then1010
  202. 950 goto840
  203. 990 kl=52224+x+40*y:lk=peek(kl)
  204. 994 iflk<>112andlk<>65thenreturn
  205. 995 gosub6050
  206. 996 ms(1)=ms(1)-1
  207. 997 m$=str$(ms(1)):m$=right$(m$,1):mm$="0"+m$
  208. 998 poke214,4:sys58640:printtab(35)""mm$:
  209. 999 return
  210. 1000 gosub990:poke646,af:poke211,x:poke214,y:sys58640:printb1$:goto1100
  211. 1010 gosub990:poke646,af:poke211,x:poke214,y:sys58640:printb2$:goto1100
  212. 1100 poke646,fa:poke211,fx:poke214,fy:sys58640:printkf$
  213. 1110 goto449
  214. 1200 rem - computer zieht -
  215. 1201 dx=0:dy=0:goto1500
  216. 1202 i=int(rnd(1)*4)+1:dx=0:dy=0
  217. 1205 ifi=1thendy=-3
  218. 1210 ifi=2thendx=4
  219. 1212 ifi=3thendy=3
  220. 1215 ifi=4thendx=-4
  221. 1217 t1=d1+dx:t2=d2+dy
  222. 1220 if(t1<1)or(t1>29)then1202
  223. 1225 if(t2<0)or(t2>21)then1202
  224. 1250 n=52224+(d1+dx)+40*(d2+dy)
  225. 1255 ifpeek(n)=65orpeek(n)=112thenjk=1:gosub996
  226. 1260 ifpeek(n)=79thenlk=79:jk=1:gosub708
  227. 1262 ifpeek(n)=85thenjk=1:gosub708
  228. 1270 fa=peek(55296+d1+40*d2)
  229. 1272 iffa>=16thenfa=fa-16:goto1272
  230. 1275 d1=d1+dx:d2=d2+dy
  231. 1280 af=peek(55296+d1+40*d2)
  232. 1282 ifaf>=16thenaf=af-16:goto1282
  233. 1285 iffa=1thenrd$="  [157][157]^_[157][157][164][164]"
  234. 1290 poke646,af:poke211,d1:poke214,d2:sys58640:printdr$
  235. 1295 poke646,fa:poke211,d1-dx:poke214,d2-dy:sys58640:printrd$
  236. 1298 ifjk=1thengosub6020
  237. 1299 rd$="  [157][157]  [157][157][164][164]"
  238. 1300 jk=0:return
  239. 1500 ifpeek(52224+d1+40*(d2-3))<>160thendy=-3:goto1217
  240. 1501 ifpeek(52224+(d1+4)+40*d2)<>160thendx=4:goto1217
  241. 1502 ifpeek(52224+d1+40*(d2+3))<>160thendy=3:goto1217
  242. 1503 ifpeek(52224+(d1-4)+40*d2)<>160thendx=-4:goto1217
  243. 1505 goto1202
  244. 2000 iflk=79thengw=3:goto5000
  245. 2001 ifms(2)=0thengw=1:goto5000
  246. 2002 ifms(1)=0thengw=2:goto5000
  247. 2005 return
  248. 3000 print"[147]";:sys35000:poke54275,8:poke848,65:poke54277,123
  249. 3001 printtab(6)"- 64-er sonderh. presents -
  250. 3002 [153]"poke *lenlenrndlenlenlenpeek  *lenrnd*lenrndlenlenlenpeeklenrndpeek peekpeek peek*lenrnd  lenlenlenlenlen
  251. 3003 print"[152] [172][195][195][187][195][195][195][194]  [172][195][187][172][195][187][195][195][195][194][195][187][194] [194][194] [194][172][195][187]  [195][195][195][195][195]
  252. 3004 [153]"list *lenlenrndlenlenlenpeek  *lenrnd*lenrndlenlenlenpeeklenrndpeek peekpeek peek*lenrnd  lenlenlenlenlen
  253. 3005 print"[158] [172][195][195][187][195][195][195][194]  [172][195][187][172][195][187][195][195][195][194][195][187][194] [194][194] [194][172][195][187]  [195][195][195][195][195]
  254. 3007 [153]"  peek peekpeek  peek  peek peekpeek  peek  peek peekpeek peekpeek(NULL)waitpeekpeek     peek peek
  255. 3010 print"  [194][195][190][194][195] [194]  [194][195][194][194][195][195][194][195] [194][195][190][194] [194][194][223][194][194][195][195]   [194] [194]
  256. 3012 [153]"  peek peekpeek  peek  peek peekpeek peekpeek  peek(NULL)(NULL)waitpeek peekpeek peekpeek peek   peek peek
  257. 3015 print" [188][195][195][190][195][195][195][188][195][195][194] [194][188][195][190][195][195][195][194] [194][188][195][190][194] [194][188][195][190]  [195][195][195][195][195]
  258. 3020 [153]"list loglenlencoslenlenlenloglenlenpeek peekloglencoslenlenlenpeek peekloglencospeek peekloglencos  lenlenlenlenlen
  259. 3025 print"[152] [188][195][195][190][195][195][195][188][195][195][194] [194][188][195][190][195][195][195][194] [194][188][195][190][194] [194][188][195][190]  [195][195][195][195][195]
  260. 3027 [153]"poke loglenlencoslenlenlenloglenlenpeek peekloglencoslenlenlenpeek peekloglencospeek peekloglencos  lenlenlenlenlen
  261. 3030 printtab(5)"written 1987 by frank abbing!
  262. 3031 [153][163]16)"defpress f1"
  263. 3032 [153]"on@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  264. 3035 [153]"on@@@@atn(NULL)@@@or^@@@(NULL)(NULL)@@@(NULL)right$@@@or^@@@(NULL)right$@@@atn(NULL)@@@@"
  265. 3037 [153]"on@@@@(NULL)(NULL)@@@/exp@@@(NULL)sqr@@@mid$(NULL)@@@/exp@@@mid$(NULL)@@@(NULL)(NULL)@@@@"
  266. 3040 [129]t[178]0[164]39:[151]53184[170]t,0:[130]
  267. 3045 [151]53265,27
  268. 3050 [161]a$:[139]a$[179][177]"input"[167]3050
  269. 3055 [151]56334,0:[151]788,49:[151]789,234:[151]56334,1
  270. 3060 [151]677,0:[141]6000
  271. 3065 [129]t[178]1[164]9:[158]59777
  272. 3070 [141]6040:[130]t
  273. 3075 [129]t[178]1[164]12:[158]59626
  274. 3080 [141]6040:[130]t
  275. 3083 n$(1)[178]"":n$(2)[178]"":[158]59777:[151]677,0:[141]6040
  276. 3084 [151]214,14:[158]58640:[153]"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
  277. 3085 poke214,15:sys58640:print"    geben sie jetzt ihren namen an...   "
  278. 3086 poke214,16:sys58640:print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  279. 3087 [151]214,18:[158]58640:[133]"sys      spieler 1 (reiter) ";n$(1)
  280. 3088 [139]n$(1)[178]""[176]n$(1)[178][199](13)[167]3087
  281. 3090 [151]214,20:[158]58640:[133]"sys      spieler 2 (ritter) ";n$(2)
  282. 3092 [139]n$(2)[178]""[176]n$(2)[178][199](13)[167]3090
  283. 3095 n$(1)[178][200](n$(1),6)
  284. 3097 n$(2)[178][200](n$(2),6)
  285. 3100 [151]677,14
  286. 3105 [129]t[178]1[164]14:[158]59777:[141]6040:[130]t:[151]677,0
  287. 3110 [129]t[178]1[164]14:[158]59626:[141]6040:[130]t:[129]e[178]1[164]1000:[130]
  288. 3200 [151]53265,0:[137]225
  289. 5000 [151]53248[170]21,0:[129]t[178]1[164]2000:[130]:[158]35000
  290. 5005 [129]t[178]0[164]255:[151]53281,t:[130]:[151]53281,0
  291. 5010 [153]"loadsys"
  292. 5015 [153]"  die belagerung der burg ist beendet!cont"
  293. 5020 [139]gw[178]1[167]5050
  294. 5025 [139]gw[178]2[167]5100
  295. 5030 [139]gw[178]3[167]5150
  296. 5050 [153]"    die reiter haben die verteidiger
  297. 5055 print"  geschlagen, und die burg eingenommen!
  298. 5060 [153]"        ueberlebende reiter :"ms(1)
  299. 5065 [137]5200
  300. 5100 [153]"   die ritter haben ihre burg tapfer
  301. 5105 print"    verteidigt, und die gegnerischen
  302. 5110 [153]"        reiterscharen besiegt.
  303. 5115 print"        ueberlebende ritter :"ms(2)
  304. 5120 goto5200
  305. 5150 print"     in einer tollkuehnen schlacht
  306. 5155 [153]"   ist es den reitern gelungen, den
  307. 5160 print"   anfuehrer der ritter zu besiegen!
  308. 5165 [153]"        ueberlebende reiter :"ms(1)
  309. 5170 [137]5200
  310. 5200 [153]"         noch ein spiel (j/n) ?
  311. 5205 geta$
  312. 5210 ifa$="j"thengosub7000:run
  313. 5215 ifa$="n"thenfort=1to24:sys59626:next:gosub7010:poke648,4:poke808,213:end
  314. 5220 goto5205
  315. 6000 fort=0to24:poke54272+t,0:next
  316. 6005 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w0=si+4:a0=si+5:h0=si+6:l0=si+24
  317. 6007 lf=si+7:hf=si+8:lt=si+9:ht=si+10:w1=si+11:a1=si+12:h1=si+13
  318. 6010 pokew0,0:pokea0,13:poketl,255:poketh,7
  319. 6012 pokew1,0:pokea1,13:pokelt,255:pokeht,3:pokel0,15:return
  320. 6019 rem - drache -
  321. 6020 pokefh,3:pokew0,65
  322. 6025 pokehf,2:pokew1,65
  323. 6027 forc=255to30step-1:pokefl,t/10:pokelf,255-(t/10):next
  324. 6030 pokew0,0:pokew1,0:return
  325. 6040 pokew0,65:pokea0,8:pokefh,80:forc=1to25:next:pokea0,13:pokew0,0:return
  326. 6050 poketh,3:pokew1,65:pokehf,26:pokelf,20
  327. 6055 pokefh,34:pokefl,207:form=1to3:pokew0,0:pokew0,65:forc=1to75:nextc,m
  328. 6056 pokehf,34:pokelf,207
  329. 6057 pokefh,46:pokefl,118:pokew0,0:pokew0,65:forc=1to750:nextc:pokew0,0
  330. 6060 pokew1,0:poketh,7:return
  331. 6100 poketh,3:pokew1,65:pokehf,8:pokelf,180:pokea0,8
  332. 6105 pokefh,5:pokefl,123:form=1to8:pokew0,0:pokew0,65:forc=1to100:nextc,m
  333. 6107 pokew1,0:pokew1,65:pokehf,2:pokelf,190
  334. 6110 pokefh,4:pokefl,90:pokea0,13:pokew0,0:pokew0,65:form=1to1000:next
  335. 6120 pokew0,0:pokew1,0:return
  336. 7000 poke56334,0:poke788,49:poke789,234:poke56334,1:return
  337. 7010 pokew0,65:pokew1,65
  338. 7020 forg=1to100
  339. 7025 s=int(rnd(1)*10)+50
  340. 7027 pokefh,s:pokehf,s+1
  341. 7030 forb=1to15:nextb,g
  342. 7032 forf=sto0step-.2
  343. 7033 pokefh,f:pokehf,f+1:nextf
  344. 7035 pokew0,0:pokew1,0
  345. 7040 return
  346.